
Public Class frmInicio
    Friend MifrmLogin As frmLogin
    Friend MifrmPedido As frmPedido
    Friend MifrmClientes As frmClientes
    Friend MifrmLineaPed As frmLineaPed
    Friend MifrmBArticulos As frmBArticulos
    Friend MifrmBUsuario As frmBUsuario
    Friend MifrmDClientes As frmDClientes
    Dim _Nuevo As Boolean

    Private Sub btnClientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClientes.Click
        MifrmClientes = New frmClientes
        MifrmClientes.Show()
    End Sub

    Private Sub frmInicio_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        MsgBox("Closing")
    End Sub

    Private Sub frmInicio_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Disposed
        MsgBox("Disposed")
    End Sub

    Private Sub frmInicio_HandleDestroyed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.HandleDestroyed
        MsgBox("Destruccion")
    End Sub

    Friend Property Nuevo() As Boolean
        Get
            Return _Nuevo
        End Get
        Set(ByVal value As Boolean)
            _Nuevo = value
        End Set
    End Property




    Private Sub btnInicio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInicio.Click
        MifrmLogin = New frmLogin
        MifrmLogin.Show()
    End Sub

    Private Sub btnPedidos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPedidos.Click
        _Nuevo = True
        MifrmPedido = New frmPedido
        MifrmPedido.Show()

    End Sub

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Application.Exit()
    End Sub
End Class